

********************************************************************************
* Figure 9: The Time Series of the Dot Plot Forecast
********************************************************************************

use "../data/final_data_fed_secular_decline", clear

*Keep only the dot plot observations
keep if !missing(dotlr)

twoway connected dotlr dot1y pcelr date, ///
	scheme(s1mono) ///
	msize(1.5 1.5 1.2) ///
	xlabel(, format(%tdCCYY)) ///
	ylabel(, angle(horizontal)) ///
	ytitle("Fed Forecast (%)") ///
	xtitle("") ///
	legend(on cols(1) symxsize(*0.5) ///
	label(1 "Fed forecast for long-run level of federal funds rate")	///
	label(2 "Fed forecast for federal funds rate in 1 year")	///		
	label(3 "Fed forecast for long-run inflation") )
	graph export "../figures/figure9.png", replace